home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac CD-ROM 59 / SVM Mac CD-ROM - No 59.iso / demo camisole / Quai.Dxr / 00624_gagner le jeu des intrus.ls < prev    next >
Encoding:
Text File  |  1999-04-06  |  434 b   |  14 lines
  1. on exitFrame
  2.   global gNumIntrus, gNiveauDuJeu, gJeuxBiblos, gAnim, gDecalageSprite, gListeDechets
  3.   set vPoubelle to count(gListeDechets)
  4.   repeat with vElement = gDecalageSprite + 1 to gDecalageSprite + vPoubelle
  5.     puppetSprite(vElement, 0)
  6.   end repeat
  7.   if gNumIntrus > 0 then
  8.     set vJeu to value("#" & gAnim)
  9.     if (getProp(gJeuxBiblos, vJeu) = 1) and (gNiveauDuJeu = "B") then
  10.       go("PocheCAmi")
  11.     end if
  12.   end if
  13. end
  14.